﻿<!--#include file="utf-8.asp"-->
<!--#include file="sql.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="config.asp" -->
<!--#include file="page.asp" -->
<%
'######################################
' 安科外贸网站管理系统中英文双语版
' anke Enterprise Web Site Management System
' 官方网站：http://www.shejifang.org
' 联系QQ：357052954
' 淘宝店： http://shejifang.taobao.com
'######################################
%>
<%
dim id,rs,exec
id = request.querystring("id")
if id = "" or not isnumeric(id) then
response.write "<script>alert('非法操作');history.back();</script>"
response.end
end if

set rs=server.createobject("adodb.recordset") 
exec="select * from [news] where ssfl="&id&" order by id desc  " 
rs.open exec,conn,1,1 
if rs.eof then
rs.close
set rs = nothing
conn.close
set conn = nothing
response.write "<script>alert('请先到后台添加此分类的新闻!');history.back();</script>"
response.end
end if 

set rs2=server.createobject("adodb.recordset") 
exec2="select * from news_fl where id="&id&" order by id desc  " 
rs2.open exec2,conn,1,1
titlefl = rs2("title")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><%=titlefl%>-<%=config("title")%>></title>
<meta name="keywords" content="<%=config("keywords")%>" />
<meta name="description" content="<%=config("description")%>" />
<link href="images/style.css" type="text/css" rel="stylesheet" />
</head>
<body>
<!--#include file="header.asp" -->
<table width="913" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="193" valign="top">
    <table width="193" border="0"  cellpadding="0" cellspacing="0">
      <tr>
        <td valign="top">
        <!--左侧导航-->
        <!--#include file="left3.asp"-->
        </td>
      </tr>
      <tr>
        <td width="193" height="324" align="center" valign="top">
        <!--热点产品-->
        <!--#include file="hot.asp"-->
        </td>
      </tr>
    </table></td>
    <td width="720" valign="top">
    
    <table width="720" height="609" border="0" cellpadding="0" cellspacing="0">
	<tr>
		<td width="720" height="34" align="right" valign="middle" background="images/title.jpg">
        <span style="float:left; padding:2px 0px 0px 25px; font-weight:bold; font-size:14px; color:#333333;">新闻中心</span>
        <a href="main.asp">网站首页</a> > <a href="news.asp">新闻中心</a>
        </td>
	</tr>
	<tr>
		<td height="113">
			<img src="images/about_02.jpg" width="720" height="113"></td>
	</tr>
	<tr>
		<td height="457" valign="top">
        <!--新闻列表-->
        <table width="720" border="0" cellpadding="0" cellspacing="0">
	<tr>
		<td width="720" height="38" align="right" valign="middle" background="images/News_title.jpg">
        <span style="float:left; padding:2px 0px 0px 50px; font-weight:bold; font-size:13px; color:#333333;"><%=titlefl%></span>
        </td>
	</tr>
	<tr>
		<td width="720" height="176" valign="top">
        
        <table width="100%" border="0" cellpadding="7" cellspacing="0" bgcolor="#CCCCCC">
          
          <tr>
            <td bgcolor="#FFFFFF">
<%
rs.PageSize = nlist_num '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount 
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif  page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if	
%>
                <%For i=1 To x%>
                <div class="box14">
                  <ul>
                    <li><a href="shownews.asp?/<%=rs("id")%>.html" title="<%=rs("title")%>"><%=left(rs("title"),40)%></a>&nbsp;&nbsp;&nbsp;<%=rs("data")%></li>
                  </ul>
                </div>
              <%rs.movenext
                next
              %>
            </td>
          </tr>
          <tr>
         <td bgcolor="#FFFFFF">
<%
'以下显示分页
call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
rs.close
set rs=nothing
%>           </td>
          </tr>
        </table>
        
        </td>
	</tr>
</table>
        </td>
	</tr>
</table>
    
    </td>
  </tr>
</table>
<!--#include file="foot.asp" -->
</body>
</html>
<%
conn.close
set conn = nothing
%>